home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / src / lib / tk2.3 / dist / tkAtom.c < prev    next >
Encoding:
C/C++ Source or Header  |  1992-05-07  |  4.5 KB  |  166 lines
  1. /* 
  2.  * tkAtom.c --
  3.  *
  4.  *    This file manages a cache of X Atoms in order to avoid
  5.  *    interactions with the X server.  It's much like the Xmu
  6.  *    routines, except it has a cleaner interface (caller
  7.  *    doesn't have to provide permanent storage for atom names,
  8.  *    for example).
  9.  *
  10.  * Copyright 1990 Regents of the University of California.
  11.  * Permission to use, copy, modify, and distribute this
  12.  * software and its documentation for any purpose and without
  13.  * fee is hereby granted, provided that the above copyright
  14.  * notice appear in all copies.  The University of California
  15.  * makes no representations about the suitability of this
  16.  * software for any purpose.  It is provided "as is" without
  17.  * express or implied warranty.
  18.  */
  19.  
  20. #ifndef lint
  21. static char rcsid[] = "$Header: /user6/ouster/wish/RCS/tkAtom.c,v 1.6 92/05/07 09:51:06 ouster Exp $ SPRITE (Berkeley)";
  22. #endif
  23.  
  24. #include "tkConfig.h"
  25. #include "tkInt.h"
  26.  
  27. /*
  28.  * Forward references to procedures defined in this file:
  29.  */
  30.  
  31. static void    AtomInit _ANSI_ARGS_((TkDisplay *dispPtr));
  32.  
  33. /*
  34.  *--------------------------------------------------------------
  35.  *
  36.  * Tk_InternAtom --
  37.  *
  38.  *    Given a string, produce the equivalent X atom.  This
  39.  *    procedure is equivalent to XInternAtom, except that it
  40.  *    keeps a local cache of atoms.  Once a name is known,
  41.  *    the server need not be contacted again for that name.
  42.  *
  43.  * Results:
  44.  *    The return value is the Atom corresponding to name.
  45.  *
  46.  * Side effects:
  47.  *    A new entry may be added to the local atom cache.
  48.  *
  49.  *--------------------------------------------------------------
  50.  */
  51.  
  52. Atom
  53. Tk_InternAtom(tkwin, name)
  54.     Tk_Window tkwin;        /* Window token;  map name to atom
  55.                  * for this window's display. */
  56.     char *name;            /* Name to turn into atom. */
  57. {
  58.     register TkDisplay *dispPtr;
  59.     register Tcl_HashEntry *hPtr;
  60.     int new;
  61.  
  62.     dispPtr = ((TkWindow *) tkwin)->dispPtr;
  63.     if (!dispPtr->atomInit) {
  64.     AtomInit(dispPtr);
  65.     }
  66.  
  67.     hPtr = Tcl_CreateHashEntry(&dispPtr->nameTable, name, &new);
  68.     if (new) {
  69.     Tcl_HashEntry *hPtr2;
  70.     Atom atom;
  71.  
  72.     atom = XInternAtom(dispPtr->display, name, False);
  73.     Tcl_SetHashValue(hPtr, atom);
  74.     hPtr2 = Tcl_CreateHashEntry(&dispPtr->atomTable, (char *) atom,
  75.         &new);
  76.     Tcl_SetHashValue(hPtr2, Tcl_GetHashKey(&dispPtr->nameTable, hPtr));
  77.     }
  78.     return (Atom) Tcl_GetHashValue(hPtr);
  79. }
  80.  
  81. /*
  82.  *--------------------------------------------------------------
  83.  *
  84.  * Tk_GetAtomName --
  85.  *
  86.  *    This procedure is equivalent to XGetAtomName except that
  87.  *    it uses the local atom cache to avoid contacting the
  88.  *    server.
  89.  *
  90.  * Results:
  91.  *    The return value is a character string corresponding to
  92.  *    the atom given by "atom".  This string's storage space
  93.  *    is static:  it need not be freed by the caller, and should
  94.  *    not be modified by the caller.  If "atom" doesn't exist
  95.  *    on tkwin's display, then the string "?bad atom?" is returned.
  96.  *
  97.  * Side effects:
  98.  *    None.
  99.  *
  100.  *--------------------------------------------------------------
  101.  */
  102.  
  103. char *
  104. Tk_GetAtomName(tkwin, atom)
  105.     Tk_Window tkwin;        /* Window token;  map atom to name
  106.                  * relative to this window's
  107.                  * display. */
  108.     Atom atom;            /* Atom whose name is wanted. */
  109. {
  110.     register TkDisplay *dispPtr;
  111.     register Tcl_HashEntry *hPtr;
  112.  
  113.     dispPtr = ((TkWindow *) tkwin)->dispPtr;
  114.     if (!dispPtr->atomInit) {
  115.     AtomInit(dispPtr);
  116.     }
  117.  
  118.     hPtr = Tcl_FindHashEntry(&dispPtr->atomTable, (char *) atom);
  119.     if (hPtr == NULL) {
  120.     char *name;
  121.     Tk_ErrorHandler handler;
  122.     int new;
  123.  
  124.     handler= Tk_CreateErrorHandler(dispPtr->display, BadAtom,
  125.         -1, -1, (int (*)()) NULL, (ClientData) NULL);
  126.     name = XGetAtomName(dispPtr->display, atom);
  127.     if (name == NULL) {
  128.         name = "?bad atom?";
  129.     }
  130.     Tk_DeleteErrorHandler(handler);
  131.     hPtr = Tcl_CreateHashEntry(&dispPtr->nameTable, (char *) name,
  132.         &new);
  133.     Tcl_SetHashValue(hPtr, atom);
  134.     name = Tcl_GetHashKey(&dispPtr->nameTable, hPtr);
  135.     hPtr = Tcl_CreateHashEntry(&dispPtr->atomTable, (char *) atom,
  136.         &new);
  137.     Tcl_SetHashValue(hPtr, name);
  138.     }
  139.     return (char *) Tcl_GetHashValue(hPtr);
  140. }
  141.  
  142. /*
  143.  *--------------------------------------------------------------
  144.  *
  145.  * AtomInit --
  146.  *
  147.  *    Initialize atom-related information for a display.
  148.  *
  149.  * Results:
  150.  *    None.
  151.  *
  152.  * Side effects:
  153.  *    Tables get initialized, etc. etc..
  154.  *
  155.  *--------------------------------------------------------------
  156.  */
  157.  
  158. static void
  159. AtomInit(dispPtr)
  160.     register TkDisplay *dispPtr;    /* Display to initialize. */
  161. {
  162.     dispPtr->atomInit = 1;
  163.     Tcl_InitHashTable(&dispPtr->nameTable, TCL_STRING_KEYS);
  164.     Tcl_InitHashTable(&dispPtr->atomTable, TCL_ONE_WORD_KEYS);
  165. }
  166.